home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / ots.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  1KB  |  36 lines
  1. /* OTS.rexx -- Make Pic into over-the-shoulder  */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   say "Can't find ToasterPaint!"
  6.   exit
  7. end
  8.  
  9. Address "DigiPaint"     /* Tell ARexx where commands go  */
  10.  
  11. call mapscreen(420,100,608,220)
  12. 'Shco'          /* Render to composite out */
  13. exit
  14.  
  15. MapScreen: PROCEDURE  /* Size full screen into rectangle with corners at (x1,y1) and (x2,y2) */
  16.   arg x1, y1, x2, y2     /* rectangle is drawn on swap screen */
  17.   'Pmcl'        /* Normal draw Mode */
  18.   'Maxc'        /* Set center transparency off */
  19.   'Maxe'        /* Set edge transparency off */
  20.   'Flon'        /* Fill On */
  21.     'Bdel'                /* Delete swap brush */
  22.     'Dotb'                /* Delete any current cut-out brush */
  23.   'Drre'        /* Draw Rectangles */
  24.   'Swap'        /* Jump to (blank) swap screen! */
  25.   'Pend' x1 y1  /* Get in top Left corner  */
  26.   'Penu' x2 y2  /* Lift pen at bottom right */
  27.     'Undo'                /* Un-draw solid rectangle */
  28.     'Rubi'                /* Internal Rub-Thru on... use picture in swap screen as source */
  29.   'Txma'        /* Texture mapping on, since there is no brush, it will use whole screen */
  30.   'Txva' $0010
  31.   'Tyva' $0010
  32.     'Redo'                /* Re-draw rectangle, this time with texture map of swap screen */
  33.   'Flof'        /* Fill off  */
  34.   'Pmcl'        /* Normal draw Mode */
  35.   return 0
  36.